home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / tools / wb-tools / win95 tools / ongo / install-ongo < prev    next >
Encoding:
Text File  |  1996-07-16  |  5.8 KB  |  266 lines
  1. ; ===================================
  2. ;
  3. ; OnGo installer script
  4. ; $VER: OnGo-Install 1.4 (7.7.96)
  5. ;
  6. ; Copyright © 1996 Tak Tang
  7. ;
  8. ; ===================================
  9.  
  10. ; ==== English strings
  11.  
  12. (set #bad-kick-msg "OnGo requires AmigaOS 2.04 or above.")
  13.  
  14. (set #hello-msg
  15.    (cat "\n\nThank you for trying OnGo, the best StartButton and Virtual"
  16.     " Screen manager for the Amiga.\n\nNothing will be deleted from"
  17.     " your system with this installation program.\n\nIf you don't"
  18.     " understand any part of the installation, click on the \"Help\" "
  19.     "gadget found throughout the installation for more information."
  20.     "\n\nCLICK TO PROCEED"))
  21.  
  22. (set #alltime-msg
  23.    (cat "\n\nDo you want OnGo to be run every "
  24.     "time you turn on your machine?"))
  25.  
  26. (set #alltime-help
  27.    (cat "\n\nSelecting YES will copy OnGo to your WBStartUp drawer, where"
  28.     " it will be started every time you boot your machine.  Selecting"
  29.     " NO will copy OnGo to your SYS:Tools/Commodities drawer."))
  30.  
  31. (set #choosetool-msg
  32.    (cat "\nWhere shall I copy OnGo (the main program)?"))
  33.  
  34. (set #choosetool-help
  35.    (cat "\nIf you want OnGo to start automatically each time you reboot,"
  36.     " place OnGo in SYS:WBStartUp.\n\nOtherwise, select the directory"
  37.     " where you store all your commodities.\n\nThis is usually"
  38.     " SYS:Tools/Commodities."))
  39.  
  40. (set #chooseprefs-msg
  41.    (cat "\nWhich Configuration should I install?"))
  42.  
  43. (set #chooseprefs-help
  44.    (cat "\nThe Magic setup contains a menu for all the programs contained"
  45.     " in the AmigaMagic pack.\n\nThe Win95 setup contains a Win95 like"
  46.     " menu with many programs from the AmigaMagic pack, and many"
  47.     " commercial, shareware and PD programs."))
  48.  
  49. (set #chooseicon-msg
  50.    (cat "\nWhich set of icons should I install?"))
  51.  
  52. (set #chooseicon-help
  53.    (cat "\nIt doesnt make any differenct, I'm not much of an artist.  If"
  54.     " you have some of your own (MWB, NI etc...) they would be "
  55.     "gratefully received"))
  56.  
  57. (set #chooselook-msg
  58.    (cat "\nChoose style of menu."))
  59.  
  60. (set #chooselook-help
  61.    (cat "\nThe default look is 3DLOOK, which draws menus as a raised bevel"
  62.     " box.\n\nNEWLOOK produces menus similar to the standard workbench "
  63.     "menus - black on white, or whatever you have set them to.\n\nXLOOK"
  64.     " is like 3DLOOK, but recesses the items when they are active.  "
  65.     "This requires more space."))
  66.  
  67. (set #chooseshort-msg
  68.    (cat "\nActivate ShortBench patch?"))
  69.  
  70. (set #chooseshort-help
  71.    (cat "\nShortbench prevents icons on the workbench backdrop from"
  72.     " being obscured by the OnGo bar.\n\nThis does not work well"
  73.     " with FullBench patches, nor does it make sense to use it if"
  74.     " you do not use a backdrop workbench."))
  75.  
  76. (set #choosepos-msg
  77.    (cat "\nHave the OnGo window appear at the top or bottom of the screen?"))
  78.  
  79. (set #choosepos-help
  80.    (cat "\nThe OnGo can appear at the bottom of the screen, like Win95,"
  81.     " or you can opt to have it at the top of the screen, like a"
  82.     " toolbar in a word processor."))
  83.  
  84. (set #exit-msg
  85.    (cat "You can run OnGo now - just double click on the icon, or reboot"
  86.     " your machine.\n\nEnjoy OnGo!"))
  87.  
  88. (set #tooldir "SYS:WBStartUp")
  89. (set #prefdir "SYS:Prefs")
  90. (set #prefsch 0)
  91. (set #iconch 0)
  92. (set #shortch 0)
  93. (set #lookch 0)
  94. (set #posch 1)
  95.  
  96.  
  97. ; ===== Check Kickstart Version
  98.  
  99.  
  100. (if (< (getversion "LIBS:version.library") (* 37 65536))
  101.     (abort #bad-kick-msg)
  102. )
  103.  
  104. (message #hello-msg)
  105.  
  106. (if (exists "SYS:Utilities/MultiView" (NOREQ))
  107.     (set #Guide "SYS:Utilities/MultiView")
  108.     (set #Guide "SYS:Utilities/AmigaGuide")
  109. )
  110.  
  111. ; ===== Ask Questions
  112.  
  113. (if (= 1 @user-level)
  114.     (if (= 0 (askbool (prompt #alltime-msg) (help #alltime-help) ) )
  115.         (set #tooldir "SYS:Tools/Commodities")
  116.     )
  117. )
  118.  
  119. (if (= 2 @user-level)
  120.     (set #tooldir
  121.         (askdir (prompt #choosetool-msg)
  122.             (help #choosetool-help)
  123.             (default #tooldir)
  124.         )
  125.     )
  126. )
  127.  
  128. (if (< 0 @user-level)
  129.     (set #prefsch
  130.         (askchoice (prompt #chooseprefs-msg)
  131.             (help #chooseprefs-help)
  132.             (choices "Magic" "Win95")
  133.         )
  134.     )
  135. )
  136.  
  137. (if (= #prefsch 0)
  138.     (set #prefsfile "OnGo.Config")
  139.     (set #prefsfile "OnGo.Config.Win95")
  140. )
  141.  
  142. (if (< 0 @user-level)
  143.     (set #iconch
  144.         (askchoice (prompt #chooseicon-msg)
  145.             (help #chooseicon-help)
  146.             (choices "Flip" "Squish" "Menu")
  147.         )
  148.     )
  149. )
  150.  
  151. (select #iconch
  152.     (set #iconfile "Icons/Flip")
  153.     (set #iconfile "Icons/Squish")
  154.     (set #iconfile "Icons/Menu")
  155. )
  156.  
  157. (if (< 1 @user-level)
  158.     (set #lookch
  159.         (askchoice (prompt #chooselook-msg)
  160.             (help #chooselook-help)
  161.             (choices "3DLook" "NewLook" "XLook")
  162.         )
  163.     )
  164. )
  165.  
  166. (select #lookch
  167.     (set #look "3DLOOK")
  168.     (set #look "NEWLOOK")
  169.     (set #look "XLOOK")
  170. )
  171.  
  172. (if (< 1 @user-level)
  173.     (set #shortch
  174.         (askbool (prompt #chooseshort-msg)
  175.             (help #chooseshort-help)
  176.         )
  177.     )
  178. )
  179.  
  180. (if (< 1 @user-level)
  181.     (set #posch
  182.         (askchoice (prompt #choosepos-msg)
  183.             (help #choosepos-help)
  184.             (default 1)
  185.             (choices "Top" "Bottom")
  186.         )
  187.     )
  188. )
  189.  
  190.  
  191. ; ===== Install main program
  192.  
  193. (copyfiles
  194.     (prompt "Copying OnGo")
  195.     (help @copyfiles-help)
  196.     (source "OnGo")
  197.     (dest #tooldir)
  198.     (confirm)
  199. )
  200.  
  201. (copyfiles
  202.     (prompt "Copying OnGo.info")
  203.     (help @copyfiles-help)
  204.     (source (cat #iconfile ".info") )
  205.     (newname "OnGo.info")
  206.     (dest #tooldir)
  207. )
  208.  
  209. (tooltype
  210.     (dest (tackon #tooldir "OnGo"))
  211.     (settooltype "SHORTBENCH" (select #shortch "FALSE" "TRUE"))
  212.     (settooltype "LOOK" #look)
  213.     (settooltype "POSITION" (select #posch "TOP" "BOTTOM"))
  214. )
  215.  
  216.  
  217. ; ===== Install prefs program
  218.  
  219. (copyfiles
  220.     (prompt "Copying OnGo-Prefs")
  221.     (help @copyfiles-help)
  222.     (source "OnGo-Prefs")
  223.     (dest #prefdir)
  224.     (confirm)
  225. )
  226.  
  227. (copyfiles
  228.     (prompt "Copying OnGo-Prefs.info")
  229.     (help @copyfiles-help)
  230.     (source (cat #iconfile "-Prefs.info") )
  231.     (newname "OnGo-Prefs.info")
  232.     (dest #prefdir)
  233. )
  234.  
  235. (tooltype
  236.     (dest (tackon #prefdir "OnGo-Prefs") )
  237.     (setdefaulttool #Guide)
  238. )
  239.  
  240. ; ===== Install config files
  241.  
  242. (copyfiles
  243.     (prompt "Copying OnGo.Config")
  244.     (help @copyfiles-help)
  245.     (source #prefsfile)
  246.     (dest "ENVARC:")
  247.     (newname "OnGo.Config")
  248.     (confirm)
  249. )
  250.  
  251. (copyfiles
  252.     (prompt "Copying OnGo.Config")
  253.     (help @copyfiles-help)
  254.     (source #prefsfile)
  255.     (dest "ENV:")
  256.     (newname "OnGo.Config")
  257.     (infos)
  258. )
  259.  
  260. ; ==== Exit
  261.  
  262. (exit #exit-msg)
  263.  
  264. ; ==== End of installer script
  265.  
  266.